home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Explorer Drive Hide.xpl < prev    next >
Text File  |  2001-09-04  |  2KB  |  71 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\Drives"
  5. "NAME"="Show/Hide Drives"
  6. "VERSION"="2.34"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Hide drives"
  9. "DESCRIPTION 1"="If you do not wish all drives to be visible in Windows Explorer, simply uncheck the boxes for the drives you wish hidden. They will no longer be visible when Explorer is opened."
  10. "DESCRIPTION 2"="WARNING: As soon as at least one drive is hidden, the 'Open' and 'Explore' options on the context menu of the Start Menu are greyed out. This is a side effect of Windows."
  11. "DESCRIPTION 3"="If you are using Internet Explorer 4.0, you need to restart before the changes are visible."
  12. "AUTHOR"="Thomas Zundel / Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to Pierre Szwarc [mailto:szwarc@usa.net] for reporting the "wrong datatype" bug."
  16. "COMMENT 2"="Thanks to Dusty Phillips [dustyphillips@yahoo.com] for reporting the second "wrong datatype" bug."
  17. "COMMENT 3"="Thanks to Thomas Zundel [mailto:Thomas.Zundel@htp-tel.de] for fixing the "TeX HeX is to stupid for bit operations" bug!"
  18. "COMMENT 4"="Thanks to William Puckett [dixipngn@ida.net] for the spell checking!"
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21. sV="NoDrives"
  22. i=0
  23.  
  24. Sub Plugin_Initialize 
  25. if RegPathExists(sP) then
  26.     i=RegReadValue(sP & sV)
  27.     if IsEmpty(i)=true then
  28.         'No drives hiden
  29.         i=0
  30.     elseif len(i)=0 or IsNumeric(i)=false then
  31.         'wrong datatype!!!
  32.         i=0
  33.     end if
  34.  
  35.     for x=1 to 26
  36.         Call SetUIElement(x,"Show drive " & Chr(64 + x) & ":\")
  37.         if (i and (2^(x-1))) <> 0 then
  38.             Call SetUIElementEx(x,false)
  39.         else
  40.             Call SetUIElementEx(x,true)
  41.         end if
  42.     next
  43. else
  44.     Disable
  45. end if
  46. End Sub
  47.  
  48. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  49. i=0
  50. for x=1 to 26
  51.     if GetUIElementEx(x)=false then i=i + (2^(x-1))
  52. next
  53.  
  54. if i=0 then
  55.    'we can kill the value
  56.    if RegValueExists(sP & sV)=true then
  57.       Call RegDeleteValue(sP & sV)
  58.    end if
  59. else 
  60.    Call RegWriteValue(sP & sV,i,2)
  61. end if
  62.  
  63. Call IndicateSettingChange()
  64. 'Not needed?
  65. 'Restart
  66.  
  67. End Sub
  68.  
  69. Sub Plugin_Terminate 
  70. End Sub
  71.